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GNU  C/C++ AND  FORTRAN  LANGUAGE 
INTEROPERABILITY  WITH  FUNCTION  USAGE 

TARDEC  Technical  Report  No.  22646 

March  2012 


1.0  INTRODUCTION 

This  report  documents  GNU  GCC  options  for  interoperability  between  C/C++  and  FORTRAN.  Compiling 
legacy  software  on  the  Linux  platform  necessitated  the  usage  of  GNU  compilers  and  changes  to  several 
intrinsic  functions.  Several  miscellaneous  related  activities  are  also  included.  Experimentation  was 
required  to  achieve  success.  Included  are  examples  demonstrating  particular  usage  of  each.  The 
functions  addressed  are  TIME(),  CTIME(),  ETIME(),  ITIME(),  IDATE()  (FORTRAN),  getenv(),  strncpy() 
(C),  and  vectoro  (C++). 

All  examples  were  run  on  SUSE  Linux  Enterprise  Server  1 1  (x86_64)  with 

•  LSB_VERSION="core-2.0-noarch:core-3.2-noarch:core-4.0-noarch:core-2.0-x86_64:core-3.2- 
x86_64 :  core-4 . 0-x86_64" 

•  SGI  ProPack  7SP1  for  Linux,  Build  701  r3.sles1 1-1 0052521 13 

•  SGI  Tempo  Service  Node  2.1,  Build  701r3.sles11-1005252113 

•  VERSION  =  1 1 

•  PATCHLEVEL  =  1 

and  using  the  GNU  utilities 

•  gcc  (SUSE  Linux)  4.3.4  [gcc-4_3-branch  revision  152973] 

•  GNU  Fortran  (SUSE  Linux)  4.3.4  [gcc-4_3-branch  revision  152973] 

•  GNU  Id  (GNU  Binutils;  SUSE  Linux  Enterprise  11)  2.20.0.20100122-0.7.9 

•  GNU  ar  (GNU  Binutils;  SUSE  Linux  Enterprise  11)2.20.0.20100122-0.7.9 

See  references  [1],  [2],  and  [3]. 


2.0  C/C++  CALLING  FORTRAN 

This  section  demonstrates  how  to  call  FORTRAN  subroutines  from  C/C++.  A  good  reference  is  [4]  that 
highlights  these  necessary  considerations: 

•  extern  "C"  directive  is  used  for  modules  not  written  in  C++ 

•  Fortran  symbol  references  must  be  lowercase  in  C++  calls  (C++  is  case  sensitive,  Fortran  is  not) 

•  Usually  Fortran  appends  an  underscore  (_)  at  the  end  of  definitions  and  references  to  external 
symbols  (subroutines,  functions,  etc.) 

•  C++  passes  all  parameters  by  value  (except  arrays  and  structures).  Fortran  passes  them  by 
reference 
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2.1  CHECK  FOR  32  BIT  AND  64  BIT  LIBRARIES 


This  example  shows  how  to  call  FORTRAN  from  C  and  tests  for  compatibility  between  32  bit  and  64  bit 
objects. 


echo  "\n\n" 

echo  "1-both  32-bit" 

rm  test.l 

gfortran  -m32  -c  u.f 

gcc  -m32  u.o  u.c  -o  test.l  -lgfortran 
test .  1 

echo  "\n\n" 
echo  "2-.f  32-bit" 
rm  test. 2 

gfortran  -m32  -c  u.f 

gcc  u.o  u.c  -o  test. 2  -lgfortran 

test .  2 

echo  "\n\n" 
echo  "3-both  64  bit" 
rm  test.  3 
gfortran  -c  u.f 

gcc  u.o  u.c  -o  test. 3  -lgfortran 
test .  3 


U.C 


LLf _ 

SUBROUTINE  test 

print  * , ' in  u.f' 

END 


OUTPUT: _ 

l-both  32-bit 
u.c:  before  call  to  test 
in  u.f 

u.c:  after  call  to  test 


2- . f  32-bit 

rm:  cannot  remove  'test.2':  No  such  file  or  directory 

/usr/lib64/gcc/x86_64-suse-linux/4 .3 . /x86_64-suse-linux/bin/ld:  i386  architecture 
of  input  file  'u.o'  is  incompatible  with  i386:x86-64  output 
collect2:  id  returned  1  exit  status 
test.2:  Command  not  found. 


3-both  64  bit 
u.c:  before  call  to  test 
in  u.f 

u.c:  after  call  to  test 
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2.2  FORTRAN  TIME()  AND  CTIME()  USAGE 


This  example  shows  how  to  call  FORTRAN  from  C  and  the  usage  of  the  FORTRAN  TIME()  and  CTIME() 
intrinsic  functions  (see  [5]  and  [6]).  The  code  “u.c”  in  section  2.1  is  used. 


rm  test.l 
gfortran  -c  ut.f 

gcc  ut.o  . . /section2 . 1/u. c  -o  test.l  -lgfortran 
test .  1 


utf _ 

SUBROUTINE  test 
CHARACTER* 30  TimeSTR 
CHARACTER* 8  TimeSTRl 
CALL  CTIME (TIME (), TimeSTR) 

print  *,' TimeSTR: [', TimeSTR, '] ' 
TimeSTRl  =  TimeSTR ( 12 : 1 9 ) 
print  * , ' TimeSTRl : [ ' , TimeSTRl , ' ] ' 
print  *,' TIME TIME ( ) 

END 


OUTPUT: _ 

u.c:  before  call  to  test_ 

TimeSTR: [Wed  Mar  7  09:56:38  2012  ] 

TimeSTRl: [09:56:38] 

TIME () :  1331132198 

u.c:  after  call  to  test 


2.3  COMBINING  OBJECTS  INTO  ONE  EXECUTABLE 

This  example  shows  how  to  call  FORTRAN  from  C,  compile  each  object  separately,  and  then  combine 
the  objects  into  an  executable.  The  code  in  section  2.2  is  used. 


gfortran  -m32  -c  . . /section2 . 2/ut . f  -o  fl.o 
gcc  -m32  -c  . . /section2 . 2/u . c  -o  cl.o 
gcc  -m32  fl.o  cl.o  -o  cftest.e  -lgfortran 
cftest . e 


The  output  below  should  be  same  output  as  above  except  for  the  time. 


OUTPUT: 


u.c:  before  call  to  test_ 

TimeSTR: [Wed  Mar  7  10:04:12  2012  ] 

TimeSTRl:  [10:04:12] 

TIME () :  1331132652 

u.c:  after  call  to  test 
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2.4  C  GETENV  USAGE 


This  example  shows  the  usage  of  the  C  GETENV()  function  (see  [7])  and  string  manipulation  using  the 
tosh  shell  to  set  the  environment  variable. 


# !  /usr/bin/tcsh 

gcc  uenv.c  -o  uenv.e 

echo  "\n\n===setenv" 

setenv  TESTENV  /pathl/path2/file 

uenv . e 

echo  " \n\n===unsetenv" 
unsetenv  TESTENV 
uenv . e 


uenv.c _ 

#include  <stdio.h> 

#include  <stdlib.h>  /*  getenv  */ 
#include  <string.h>  /*  strcpy  */ 
int  main ( )  { 

char  *str  =  "DUMMYENV"; 
char  *strl; 
char  str2 [50] ; 
printf ( "main :  begin\n"); 
printf ( "str : %s\n" , str ) ; 
str 1  =  getenv ("TESTENV") ; 
if  ( str 1  ==  NULL) 

{ 

printf ("NULL\n") ; 

}  else 

{ 

printf ("strl:%s\n",strl) ; 
printf ("lenl :%d\n", strlen (strl) ) ; 

> 

strcpy (str2, str) ; 

str2 [strlen (str2) -2]  =  'X'; 

str  =  str2; 

printf ("str:%s\n", str) ; 
printf ("len:%d\n", strlen (str) ) ; 
printf ( "main :  end\n"); 


OUTPUT: _ 

===setenv 

main:  begin 

Str: DUMMYENV 

strl : /pathl/path2/f ile 

lenl: 17 

str : DUMMYEXV 

len :  8 

main:  end 

===unsetenv 
main:  begin 
Str: DUMMYENV 
NULL 

str: DUMMYEXV 
len :  8 
main:  end 
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3.0  FORTRAN  CALLING  C/C++ 


This  section  demonstrates  how  to  call  C/C++  subroutines  from  FORTRAN.  A  good  reference  is  [8]  and 
[9]  where  consideration  is  given  to  C++  name  mangling  (a  technique  used  to  allow  function  overloading 
due  to  C++’s  object  orientated  foundations).  Also  notice  the  appended  underscore  (_)  as  noted  in  section 
2.0  for  FORTRAN  function  calls. 


3.1  FORTRAN  ETIME()  USAGE 

This  example  shows  how  to  call  C  from  FORTRAN  and  the  usage  of  the  FORTRAN  ETIME()  intrinsic 
function  (see  [10]). 


rm  fl.o  cl.o  fctest.e 

gfortran  -m32  -c  ul.f  -o  fl.o  -lgfortran 

gcc  -m32  -c  ul.c  -o  cl.o 

echo  "=====nm" 

echo  "fl.o" 

nm  fl.o 

echo  " - " 

echo  "cl.o" 
nm  cl.o 
echo  "=====" 

gfortran  -m32  fl.o  cl.o  -o  fctest.e 
fctest .  e 


ul.c 


5 


ul.f 


PROGRAM  main 

REAL (4)  result,  T ARRAY ( 2 ) 

INTEGER  LIC 

print  *,'main:  begin' 

LIC  =  1000000 
CALL  ETIME (TARRAY, result) 
print  res result 
print  * , ' tal : ' , tarray ( 1 ) 
print  *,' ta2 tarray (2) 
print  *, '  etime:  start' 
print  *,  'LIC:  '  ,LIC 
CALL  pp (LIC) 
ii  =  -55 

print  *, ’ ABS (ii) : ' , ABS (ii) 
do  i=l,100*LIC 
j=i*i-i 
enddo 

print  *, '  etime:  end' 

CALL  ETIME (TARRAY, result) 
print  * , ' res : ' , result 
print  *,' tal :', tarray (1 ) 
print  *,' ta2 :', tarray (2) 
print  *,'main:  end' 

END 


OUTPUT: 


- call  C++ 


:nm 


fl.o 

00000000  T 
U 
U 
U 
U 
U 

u 

u 

00000000  r 


cl .  o 
00000000 


u 

T 

U 

u 


MAIN _ 

_gfortran_etime_sub 

_gfortran_set_options 

_gfortran_st_write 

_gfortran_st_write_done 

_gfortran_transfer_character 

_gfortran_transfer_integer 

_gfortran_transfer_real 

options . 0 . 547 

PP_ 

PP_ 

printf 

puts 


main:  begin 
res:  0.0000000 

tal:  0.0000000 

ta2 :  0.0000000 

etime:  start 
LIC:  1000000 

pp:  begin 
k:1000000 
a* :  1000000 
pp :  end 

ABS (ii) :  55 

etime:  end 
res:  0.46802899 

tal:  0.46802899 

ta2 :  0.0000000 

main:  end 


This  example  shows  how  to  call  C++  from  FORTRAN.  The  code  “ul.f  above  is  used. 
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rm  fl.o  cl.o  fcpptest.e 
echo  " - call  C++" 

gfortran  -m32  -c  . . /section3 . 1/ul . f  - 
gcc  -m32  -c  ul.cpp  -o  cl.o  -lstdc++ 
echo  "=====nm" 
echo  "fl.o" 
nm  fl.o 

echo  " - " 

echo  "cl.o" 
nm  cl.o 
echo  "=====" 

gfortran  -m32  fl.o  cl.o  -o  fcpptest.e 
fcpptest . e 


ul.cpp _ 

#include  <iostream> 
using  namespace  std; 
extern  "C"  { 

int  pp_(int  *a)  { 

int  k; 

cout  <<  "pp:  begin"  <<  endl; 
k  =  *a; 

cout  <<  "k:"  <<  k  <<  endl; 
cout  <<  "a*;"  «  *a  <<  endl; 
cout  <<  "pp:  end"  <<  endl; 
return  0; 

I 


fl.o  -lgfortran 


-lstdc++ 
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OUTPUT: 


fl.o 

00000000  T  MAIN _ 

U  _gfortran_etime_sub 
U  _gfortran_set_options 
U  _gf ortran_st_write 
U  _gf ortran_st_write_done 
U  _gfortran_transfer_character 
U  _gf ortran^transf er_integer 
U  _gf ortran^transf erreal 
00000000  r  options . 0 . 547 
U  pp_ 


cl .  o 

00000040  t 

00000000  t 
U 
D 
U 
U 
U 
0 

00000000  b 
0 
U 
U 
U 

0000005c  T 


J3L0BAL _ I_pp_ 

_Z41 _ static_initialization_and_destruction_Oii 

_ZNSolsEPFRSoS_E 

_ZNSolsEi 

_ZNSt8ios_base4 InitClEv 
_ZNSt8ios_base4 InitDIEv 
_ZSt4cout 

_ZSt4endlIcStllchar_traitsIcEERStl3basic_ostreamIT_T0_ES6 
_ZStL8 _ ioinit 

_ZStlsIStllchar_traitsIcEERStl3basic_ostreamIcT_ES5_PKc 

_ cxaatexit 

_ dso_handle 

_ gxx_personality_  vO 

PP_ 


main:  begin 
res:  0.0000000 

tal :  0.0000000 

ta2 :  0.0000000 

etime:  start 
LIC:  1000000 

pp:  begin 
k:  1000000 
a*:1000000 
pp:  end 

ABS  ( ii )  :  55 

etime:  end 
res:  0.45602801 

tal:  0.45602801 

ta2 :  0.0000000 

main:  end 


3.2  FORTRAN  ITIME()  AND  IDATE  USAGE 

This  example  shows  how  to  call  C++  from  FORTRAN  and  the  usage  of  the  FORTRAN  ITIME()  and 
IDATEQ  intrinsic  functions  (see  [11]  and  [12]).  The  values  returned  in  each  array  are  summarized  below: 


ITIME 

IDATE 

1 .  hour,  1-24 

1 . 

day,  1-31 

2 .  minute  1-60 

2  . 

month,  1-12 

3.  second  1-60 

3. 

year 

rm  utcpp.o  udcpp.o  ut.o  ut.e 

gcc  -m32  -c  ut.cpp  -o  utcpp.o  -lstdc+t 

gcc  -m32  -c  ud.cpp  -o  udcpp.o  -lstdc+t 

gfortran  -m32  -c  ut.f  -o  ut.o  -lgfortran 

gfortran  -m32  ut.o  utcpp.o  udcpp.o  -o  ut.e  -lstdc+t 

ut .  e 


ut.cpp 


#include  <iostream> 

using  namespace  std; 
extern  "C"  { 

int  pt  (int 

*a)  { 

cout  «  ' 

'pt:  begin 

l"  <<  endl; 

cout  «  ' 

'  hour:" 

<<  *a  <<  endl; 

cout  «  ' 

'minute :  " 

<<  *(a+l)  <<  endl; 

cout  «  ' 

'second: " 

<<  *(a+2)  <<  endl; 

cout  «  ' 
return  0; 

} 

} 

'pt:  end" 

<<  endl; 

ud.cpp 


#include  <iostream> 

using  namespace  std; 

extern  "C"  { 

int  pd  (int 

*a)  { 

cout  « 

'pd:  begin" 

<<  endl; 

cout  « 

'  day:"  « 

*a  <<  endl; 

cout  « 

’month:"  << 

*(a+l)  <<  endl; 

cout  « 

'  year:"  « 

*(a+2)  <<  endl; 

cout  « 

'pd:  end"  « 

endl; 

return  0 

} 

} 

utf _ 

PROGRAM  main 
INTEGER  T ARRAY ( 3 ) 
print  *,'main:  begin' 
CALL  ITIME (TARRAY) 

CALL  pt(tarray) 
print  * , ' tal : ' , tarray ( 1 ) 
print  *,' ta2 tarray (2 ) 
print  *,' ta3 tarray (3) 
CALL  I DATE ( TARRAY ) 

CALL  pd (tarray) 
print  *,' tal tarray ( 1 ) 
print  *,' ta2 tarray (2 ) 
print  *,' ta3 tarray (3) 
print  *,'main:  end' 

END 
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OUTPUT: 


main:  begin 
pt:  begin 
hour : 10 
minute : 59 
second:20 
pt:  end 
tal : 

10 

ta2  : 

59 

ta3 : 

20 

pd:  begin 
day: 12 
month : 3 
year : 2012 
pd:  end 
tal : 

12 

ta2 : 

3 

ta3 : 

2012 

main:  end 

3.3  FORTRAN  STRING  MANIPULATION  USING  C 

This  example  shows  how  to  call  C  from  FORTRAN  and  the  usage  of  C  string  functions  to  manipulate 
FORTRAN  strings. 


rm  fl.o  cl.o  fstr.e 

gcc  -m32  -c  ustr.c  -o  cl.o 

gfortran  -m32  -c  ustr.f  -o  fl.o  -lgfortran 
gfortran  -m32  fl.o  cl.o  -o  fstr.e 
fstr . e 


ustr.c _ 

#include  <stdio.h> 

#include  <string.h>  /*strlen*/ 

int  pp_(char  *vi,  int  *lvi,  char*  vo,  int  *lvo)  { 
char  tmpstr [250]; 
char  fmt [250] ; 

char  tt [ ]  =  "/pathl/path2/file"; 
printf("pp:  start\n") ; 
printf ( "lvi : %d\n" , *lvi) ; 
printf ("lvo:%d\n", *lvo) ; 
strncpy ( tmpstr , vi , *lvi ) ; 
tmpstr[*lvi]  =  ' \0 1 ; 
printf ( "vi : [%s] \n" , tmpstr) ; 
strncpy (vo, tt, strlen (tt) )  ; 

*lvo  =  strlen  (tt); 

sprintf (fmt, "format: %%%dc\0" , 6) ; 

printf ("fmt:  [ %  s ] \n", fmt) ; 

sprintf (tmpstr, fmt, '  '  ); 

printf ( "fmt :  [ %  s ] \n" , tmpstr) ; 

printf ("pp:  end\n"); 

return; 

} 
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ustr.f 


PROGRAM  main 
CHARACTER*250  TMPSTR 
INTEGER  varlen, vallen 
print  *,'main:  begin' 
varlen  =  5 
vallen  =  5 

write (TMPSTR, ' (A250) ' ) '  ' 

TMPSTR  =  ' /homel/home2/home3/f ile4 ' 
print  *, 'TMPSTR: [ ' , TMPSTR ( : vallen) , ' ] ' 
print  *, 'TMPSTR  LEN vallen, LEN (TMPSTR) 
CALL  pp ( ' CADSI ' , varlen, TMPSTR, vallen) 
print  *, 'TMPSTR: [ ' , TMPSTR ( : vallen) , ' ] ' 
print  *, 'TMPSTR  LEN:', vallen  ,  LEN (TMPSTR) 
print  *,'main:  end' 

END 


OUTPUT: _ 

main:  begin 
TMPSTR: [/home] 

TMPSTR  LEN:  5  250 

pp:  start 
lvi :  5 
lvo :  5 

vi : [CADSI] 
fmt: [ format :% 6c] 
fmt : [ format :  ] 

pp:  end 

TMPSTR: [ /pathl/path2/f ile] 

TMPSTR  LEN:  17  250 

main:  end 


3.4  FORTRAN  ARRAY  MANIPULATION  USING  C++ 

This  example  shows  how  to  call  C++  from  FORTRAN  and  the  usage  of  the  C++  vectoro  standard 
template  library  (STL)  to  manipulate  FORTRAN  arrays  (see  [13]). 


gfortran  -m32  -c  vf.f  -o  vf.o  -lgfortran 
gcc  -m32  -c  vc.cpp  -o  vc.o  -lstdc++ 
gfortran  -m32  vf.o  vc.o  -o  vfcpptest.e  -lstdc++ 
vf cpptest . e 
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vc.cpp _ 

#include  <iostream> 

#include  <vector> 
using  namespace  std; 
extern  "C"  { 

int  pa_(int  *siz,  double  *arr)  { 
int  dim, sum  =  1; 
vector<double>  a; 
printf("pa:  begin\n"); 
dim  =  *  (siz)  ; 

cout  <<  "dim:"  <<  dim  <<  endl; 
for  (int  i=l ; i<=dim; i++)  { 

cout  <<  i  <<  "  "  <<  *  (siz+i)  <<  endl; 

sum  =  sum  *  (*  (siz+i)); 

} 

cout  <<  "sum:"  <<  sum  <<  endl; 
for  (int  i=l ; i<=sum; i++)  { 

a . push_back ( i ) ; 

} 

cout  <<  "a. size:"  <<  a.sizeO  <<  endl; 
for (int  i=0; i<sum; i++)  { 

* (arr+i)  =  a  [i]  ; 

} 

printf("pa:  end\n"); 

} 

} 


vf.f 

PROGRAM  main 

DOUBLE  PRECISION  arr ( 3 , 2 ) , arr 1 (3 , 2 , 3 ) 

INTEGER  i, j , siz (4) 

print  *,'main:  begin' 

print  *,'arr(5,2)  =  arr(i,j)' 

print  *,  '  j  =1 , 2  ' 

arr (3,2)  =  -99.6789 

siz  =  (/ 2,  3,  2,  0/) 

do  i=l , siz  ( 2 ) 

print  *,  'i=',i,'  ',arr(i,l),'  ',arr(i,2) 

enddo 

CALL  pa (siz, arr) 
do  i=l , siz  (2 ) 

print  *,'i=',i,'  ',arr(i,l),'  ',arr(i,2) 

enddo 
print  * ,  '  ' 

print  * , ' arrl (3, 2 , 3)  =  arrl (i, j , k) 1 
print  *,  'i,j,k,  val ' 

arrl (3,2,3)  =  -99.6789 
siz  =  ( / 3 ,  3,  2,  3/) 
do  k=l , siz ( 4 ) 
do  j=l,siz(3) 
do  i=l , siz  (2 ) 

print  *,  i , j , k, arr 1 ( i , j , k) 
enddo 
enddo 
enddo 

CALL  pa (siz, arrl) 
do  k=l , siz ( 4 ) 
do  j  =1 ,  s  i  z  ( 3 ) 
do  i=l , siz (2 ) 

print  *,  i , j , k, arr 1 ( i , j , k) 
enddo 
enddo 
enddo 

print  *,'main:  end' 

END 
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OUTPUT: 


main:  begin 
arr (5,2)  =  arr (i, j ) 

1=1,2 

i= 

1  -1 . 92681655437397497E+220  6 . 64588727654947730E-316 

i= 

2  4.09088348805498754E-314  2 . 18846198183111329E-314 

i= 

3  4 . 94065645841246544E-324  -99.678901672363281 

pa:  begin 
dim:  2 

1  3 

2  2 

sum:  6 
a . size :  6 
pa:  end 

i= 

1  1.00000000000000000 

4.0000000000000000 

i= 

2  2.0000000000000000 

5.0000000000000000 

i= 

arrl (3, 2, 3) 
i , j , k,  val 

3  3.0000000000000000 

=  arrl (i, j , k) 

6.0000000000000000 

i 

1 

1 

0.0000000000000000 

2 

1 

1  - 

1 . 92634262907847196E+220 

3 

1 

1 

6. 6458872765494773 OE-316 

1 

2 

1 

0.0000000000000000 

2 

2 

1 

0.0000000000000000 

3 

2 

1 

0.0000000000000000 

1 

1 

2 

0.0000000000000000 

2 

1 

2 

0.0000000000000000 

3 

1 

2 

0.0000000000000000 

1 

2 

2 

0.0000000000000000 

2 

2 

2 

0.0000000000000000 

3 

2 

2 

0.0000000000000000 

1 

1 

3 

0.0000000000000000 

2 

1 

3 

0.0000000000000000 

3 

1 

3  - 

1 .7 80350131 65935472E+220 

1 

2 

3 

NaN 

2 

2 

3  - 

1 . 92634255302512759E+220 

3 

2 

3 

-99.678901672363281 

pa:  begin 
dim:  3 

1  3 

2  2 

3  3 

sum: 18 
a . size : 18 
pa:  end 

1 

1 

1 

1.00000000000000000 

2 

1 

1 

2.0000000000000000 

3 

1 

1 

3.0000000000000000 

1 

2 

1 

4.0000000000000000 

2 

2 

1 

5.0000000000000000 

3 

2 

1 

6.0000000000000000 

1 

1 

2 

7.0000000000000000 

2 

1 

2 

8.0000000000000000 

3 

1 

2 

9.0000000000000000 

1 

2 

2 

10.0000000000000000 

2 

2 

2 

11.000000000000000 

3 

2 

2 

12.000000000000000 

1 

1 

3 

13.000000000000000 

2 

1 

3 

14.000000000000000 

3 

1 

3 

15.000000000000000 

1 

2 

3 

16.000000000000000 

2 

2 

3 

17.000000000000000 

main:  enc 

3 

2 

3 

18.000000000000000 
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4.0  MISCELLANEOUS 


This  section  demonstrates  several  miscellaneous  items  associated  with  compiling  C/C++  and  FORTRAN. 


4.1  PREPROCESSOR  INCLUDE  STATEMENTS 

This  example  shows  how  to  use  include  header  files  with  FORTRAN. 


gfortran  -xf 77-cpp-input  ftest.f  -o  ftest 
ftest 


itest.h 


INTEGER  a 

print  *, 'itest.h:  set  a  to  15' 
a  =  12 
a  =  15 


ftest.f 


PROGRAM 

test 

#include 

"itest.h" 

print  *, 

'test:  before  a' 

print  *, 

' a= ' , a 

print  *, 

'test:  after  a' 

END 

OUTPUT: _ 

itest.h:  set  a  to  15 
test:  before  a 
a=  15 

test:  after  a 


4.2  LARGE  FILE  SUPPORT  (LSF) 

This  example  shows  how  to  include  Large  File  Support  (LSF)  to  read  files  greater  than  2  GB  on  32-bit 
systems  (see  [14],  [15],  and  [16]).  Programs  have  to  be  recompiled  with  “-D_FILE_OFFSET_BITS=64" 
which  forces  “off_t”  and  file  access  to  64  bits.  An  example  with  casting  is  below. 

(off_t)  curpos  =  lseek(fd,  (off_t)0,  SEEK_CUR) ; 


clear 

echo  "===32-bit" 

gcc  -m32  offsize.c  -o  csize 

gcc  -m32  offsize.cpp  -o  cppsize  -lstdc++ 

csize 

cppsize 

echo  "" 

echo  "===32-bit ,  w/-D_FILE_OFFSET_BITS=64 " 

gcc  -m32  offsize.c  -o  cwsize  -D_FILE_OFFSET_BITS=64 

gcc  -m32  offsize.cpp  -o  cppwsize  -lstdc++  -D_FILE_OFFSET_BITS=64 

cwsize 

cppwsize 
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rm  csize  cppsize  cwsize  cppwsize 
echo  "" 

echo  "===64-bit " 

gcc  offsize.c  -o  csize 

gcc  offsize.cpp  -o  cppsize  -lstdc++ 

csize 

cppsize 


offsize.c 


#include  <stdio.h> 

#include  <stdlib.h> 

int  main(int  argc,  const  char*  argv[])  { 

printf ( ’ 

in  main  C:  begin\n"); 

printf ( ' 

sizeof (char) : %d\n" , 

sizeof (char) ) ; 

printf ( ’ 

sizeof (short  int):%d\n". 

sizeof (short  int)); 

printf ( ’ 

sizeof (int) : %d\n" , 

sizeof (int) ) ; 

printf ( ’ 

sizeof (long) : %d\n" , 

sizeof (long) ) ; 

printf ( ' 

sizeof (off  t):%d\n". 

sizeof (off  t) ) ; 

printf ( ’ 

} 

in  main  C:  end\n"); 

offsize.cpp 


#include  <iostream> 

#include  <ios> 

using  namespace  std; 

int  main ( int 

argc,  const  char* 

argv [ ] )  { 

cout  «  ' 

in  main  C++:  begin" 

« 

endl; 

cout  «  ' 

sizeof (char) : " 

« 

sizeof (char)  <<  endl; 

cout  «  ' 

sizeof (short  int):" 

« 

sizeof (short  int)  <<  endl; 

cout  «  ' 

sizeof (int)  :  " 

« 

sizeof (int)  <<  endl; 

cout  «  ' 

sizeof (long) : " 

« 

sizeof (long)  <<  endl; 

cout  «  ' 

sizeof (off  t)  is  :  " 

« 

sizeof (off  t)  <<  endl; 

cout  «  ' 

sizeof (ios :: of f  type):' 

<<  sizeof (ios :: of f  type)  <<  endl; 

return  0; 

} 

The  output  below  shows  the  difference  in  size  of  “off_t"  with  the  “-d_file _offset_bits=64”  flag 
included — the  C++  type  “ios  :  :  of  f  type”  is  always  8  bytes  in  size. 
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OUTPUT: 


===32-bit 
in  main  C:  begin 

sizeof (char) : 1 
sizeof (short  int):2 
sizeof (int) : 4 
sizeof (long) : 4 
sizeof (of f_t) : 4 
in  main  C:  end 
in  main  C++:  begin 
sizeof (char) : 1 
sizeof (short  int):2 
sizeof (int) : 4 
sizeof (long) : 4 
sizeof (off_t)  is:4 
sizeof (ios : : of f_type) : 8 

===32 -bit,  w/-D_FILE_OFFSET_BITS=64 
in  main  C:  begin 

sizeof (char) : 1 
sizeof (short  int):2 
sizeof (int) : 4 
sizeof (long) : 4 
sizeof (of f_t) : 8 
in  main  C:  end 
in  main  C++:  begin 
sizeof (char) : 1 
sizeof (short  int):2 
sizeof (int) : 4 
sizeof (long) : 4 
sizeof (off_t)  is: 8 
sizeof (ios : : of f_type) : 8 

===64-bit 
in  main  C:  begin 

sizeof (char) : 1 
sizeof (short  int): 2 
sizeof (int) : 4 
sizeof (long) : 8 
sizeof (of f_t) : 8 
in  main  C:  end 
in  main  C++:  begin 
sizeof (char) : 1 
sizeof (short  int): 2 
sizeof (int) : 4 
sizeof (long) : 8 
sizeof (off_t)  is: 8 
sizeof (ios : : of f_type) : 8 
serviceO  557% 


4.3  CREATING  AND  COMPILING  WITH  ARCHIVES 

This  example  shows  how  to  create  an  archive  and  include  it  when  compiling  in  the  tcsh  shell. 

#!/usr/bin/tcsh 

gcc  -m32  -c  s.c  sl.c  s2.c 

echo  "Creating  Archive:" 

ar  rlusv  libtest.a  sl.o  s2.o 

true  libtest.a 

echo  "  " 

echo  "Listing  Archive:" 
ar  -tv  libtest.a 
nm  libtest.a 
echo  "  " 

gcc  -m32  s.o  libtest.a  -o  ss.e 
#gcc  -m32  s.o  -o  ss.e  -L.  -Hit. a 
ss .  e 
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si  .c _ 

#include  <stdio.h> 
void  si ( )  ( 

printf("in  sl\n") ; 

> 


s2.c _ 

#include  <stdio.h> 
void  s2 ( )  { 

printf("in  s2\n"); 

> 


S.C _ 

#include  <stdio.h> 
extern  void  sl(); 
extern  void  s2(); 
int  main ( )  { 

printf ( "Hello  \n") ; 
si  0  ; 
s2  ()  ; 

printf ( "Hello  \n") ; 

} 


OUTPUT: 


Creating 

Archive : 

ar:  creating  libtest.a 

a  -  si .  o 
a  -  s2  .  o 

Listing  Archive: 

rw-r - 

2048/14900 

932 

Mar 

12 

13:38 

2012 

si .  o 

rw-r - 

2048/14900 

932 

Mar 

12 

13:38 

2012 

s2 .  o 

si .  o : 

U  puts 

00000000 

T  si 

s2  .  o : 

U  puts 

00000000 

T  s2 

s:  before  sl,s2 

in  si 
in  s2 
s:  after 

sl,s2 
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